home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / mui / MCC_TableGroup.lha / MCC_TableGroup / Developer / Cluster / txt / MCCTableGroup.mod < prev   
Text File  |  1999-01-12  |  1KB  |  49 lines
  1. |##########|
  2. |#MAGIC   #|FLPFCHAC
  3. |#PROJECT #|"MCCTableGroupLib"
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx-x-x--xxx-xxx-----------------
  9. |#USERSW  #|--------------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|x--x-xxxxx-xx---
  12. |##########|
  13. IMPLEMENTATION MODULE MCCTableGroup;
  14.  
  15. FROM MuiO         AS mui IMPORT All;
  16. FROM Intuition           IMPORT SetAttrs, BoopsiTags;
  17.  
  18. $$IF Library THEN
  19.   $$RangeChk    := FALSE
  20.   $$OverflowChk := FALSE
  21.   $$ReturnChk   := FALSE
  22.   $$StrZeroChk  := FALSE
  23.   $$StackChk    := FALSE
  24.   $$NilChk      := FALSE
  25. $$END
  26.  
  27. (*
  28.   seit spezielle SetTableAttrs-Prozedur verwendet wird,
  29.   die forward an Table-Kinder verhindert,
  30.   wird auch dieses Modul von der MCC eingebunden
  31.  
  32. LIBRARY IntuitionBase BY -648
  33.   PROCEDURE SetTableAttrs (object IN A0 : GroupObject;
  34.                            tags   IN A1 : LIST OF TableGroupTags);
  35. *)
  36.  
  37. PROCEDURE SetTableAttrs (object : GroupObject;
  38.                          tags   : LIST OF TableGroupTags);
  39. BEGIN
  40.   FORGET SetAttrs (object, MuiTags.groupForward : false, MOREA : tags[0]'PTR);
  41. END SetTableAttrs;
  42.  
  43. PROCEDURE MakeTableGroupObject (tags : LIST OF TableGroupTags) : GroupObject;
  44. BEGIN
  45.   RETURN NewObjectA (cTableGroup, MuiTagAPtr(tags[0]'PTR));
  46. END MakeTableGroupObject;
  47.  
  48. END MCCTableGroup.
  49.